home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / JimBTax / taxaid.d64 / tax eh!d 2 (.txt) < prev   
Commodore BASIC  |  2009-02-05  |  30KB  |  895 lines
  1. 5 IF TE=O THEN TE=49152:LOAD"EH'D AID",8,1
  2. 9 SYS TE
  3. 10 GOTO20
  4. 12 !DEF(0,1,1,0,32,10,10):!DIM(6,3,33,8)
  5. 14 W$="ENTER THE NUMBER OF CHILDREN FOR WHOM YOU'RE ENTITLED TO CHILD TAX "
  6. 15 W$=W$+"CREDIT. THAT NUMBER APPEARS ON YOUR TFA1 SLIP. "
  7. 17 PRINT"[147]":!OPEN,W$
  8. 18 INPUT"";P5
  9. 19 RETURN
  10. 20 PRINT"[147]":FORI=0TO23
  11. 30 PRINT"1987 [158]TAX EH!D [154]    FOR INCOME FROM 1986 ":NEXT
  12. 32 GOSUB3013
  13. 40 !DEF(0,1,1,0,32,100,100):!DIM(2,3,33,5)
  14. 42 W$="THE PROGRAM [158]TAX EH!D IS PROVIDED ON A 'PAY WHAT YOU THINK IT'S WORTH"
  15. 43 W$=W$+" BASIS'."
  16. 45 !OPEN,W$:GOSUB3013
  17. 50 !DEF(0,1,1,0,32,100,100):!DIM(8,3,33,6)
  18. 51 W$="IF YOU FIND [158]TAX EH!D TO BE OF VALUE AND WISH TO REMUNERATE THE WRITER"
  19. 52 W$=W$+". IT WOULD BE MUCH APPRECIATED."
  20. 53 !OPEN,W$
  21. 54 FORX=1TO2500:NEXT
  22. 55 !DIM(15,3,33,6)
  23. 56 W$="MY ADDRESS IS:  RONALD CAMERON                 RR#2 MONKLAND        "
  24. 57 W$=W$+"          ONTARIO                        K0C 1V0  "
  25. 58 !OPEN,W$
  26. 59 GOSUB8316
  27. 60 !DEF(0,1,1,0,32,75,75):!DIM(2,2,35,8)
  28. 62 W$="NEXT YEAR'S [158]TAX EH!D WILL ONLY BE AVAILABLE THROUGH THE MAIL. THE "
  29. 64 W$=W$+"MAILING LIST WILL CONSIST OF THOSE WHO SEND A REMUNERATION"
  30. 65 W$=W$+" FOR THIS YEAR'S PROGRAM (SOUNDS FAIR EH?)"
  31. 66 PRINT"[147]":!OPEN,W$
  32. 70 !DEF(0,1,1,0,32,75,75):!DIM(15,1,37,5)
  33. 72 W$="PROGRAM IS NOT PROTECTED SO YOU CAN GIVE COPIES TO ALL YOUR "
  34. 74 W$=W$+"FRIENDS WHO HAVE C-64'S OR 128'S"
  35. 78 !OPEN,W$
  36. 79 GOSUB8316:GOSUB89
  37. 80 !DEF(0,1,1,0,32,75,75):!DIM(4,4,22,11)
  38. 81 W$="IF YOU RECEIVED A TFA1 (CHILD TAX CREDIT) SLIP FROM THE GOVERNMENT "
  39. 82 W$=W$+"THEN YOU MUST FILL OUT A SCHEDULE 10 (INCLUDED WITH YOUR TAX FORM). "
  40. 83 W$=W$+"IF YOU RECEIVED A TFA1, ENTER A Y[146] IF YOU DIDN'T, THEN ENTER A N[146]."
  41. 84 !OPEN,W$:INPUTA$
  42. 85 IF A$="Y"THENGOSUB8500
  43. 88 RETURN
  44. 89 !DEF(0,1,1,0,32,75,75):!DIM(5,16,22,11)
  45. 90 W$="NOT FOR USE BY SELF-EMPLOYED INDIVIDUALS"
  46. 91 PRINT"[147]":!OPEN,W$:GOSUB3011
  47. 100 !DEF(0,1,1,0,32,1,1):!DIM(10,20,12,7)
  48. 105 W$="THAT INCLUDES FARMERS AND FISHERMEN"
  49. 106 !OPEN,W$
  50. 107 GOSUB3012:!DEF(0,1,10,0,32,50,50):!DIM(19,21,19,5)
  51. 108 W$="THIS PROGRAM HAS BEEN CREATED BY RONALD D CAMERON"
  52. 109 !OPEN,W$:GOSUB3012
  53. 110 !DEF(0,1,10,0,32,150,80):!DIM(5,6,15,15)
  54. 111 W$="EVEN A PROFESSIONAL TAX PREPARER WHO IS ABLE TO QUESTION YOU AS "
  55. 112 W$=W$+"HE PREPARES YOUR RETURN, CANNOT GUARANTEE THE ACCURACY OF YOUR RETURN"
  56. 113 !OPEN,W$:GOSUB3013
  57. 114 !DEF(0,1,2,0,32,20,20):!DIM(7,6,15,8)
  58. 115 W$="[158]TAX EH!D[159] CONTAINS NO GUARANTEE, NEITHER EXPLICIT NOR IMPLIED"
  59. 116 !OPEN,W$
  60. 118 GOSUB3013:!DEF(0,1,5,102,32):!DIM(2,19,19,8)
  61. 120 W$="[146][158]TAX EH!D[159] HOWEVER SHOULD BE ALL THAT IS REQUIRED FOR THE "
  62. 122 W$=W$+"MAJORITY OF THE GENERAL PUBLIC"
  63. 123 !OPEN,W$
  64. 124 GOSUB8316
  65. 125 GOSUB8027
  66. 127 GOTO5000
  67. 128 !CLOSE:GOSUB3011:!CLOSE:GOSUB3011:!CLOSE:GOSUB3011:!CLOSE:GOSUB3011:!CLOSE
  68. 130 GOSUB3010:!CLOSE
  69. 500 GOSUB3050
  70. 3000 A$="":GETA$:IFA$=""THEN3000
  71. 3005 RETURN
  72. 3010 FORX=1TO1500:NEXT:RETURN
  73. 3011 FORX=1TO1500:NEXT:RETURN
  74. 3012 FORX=1TO1500:NEXT:RETURN
  75. 3013 FORX=1TO3000:NEXT:RETURN
  76. 3014 FORX=1TO1500:NEXT:RETURN
  77. 3050 !DEF(1,1,1,0,32,10,10):!DIM(21,3,32,3)
  78. 3060 W$="  PRESS SPACE BAR TO CONTINUE "
  79. 3070 !OPEN,W$
  80. 3071 GOSUB3000
  81. 5000 POKE53280,3:POKE53281,3:POKE646,11:PRINT"[147]1986 TAX RETURN"
  82. 5001 PRINT" DO NOT USE COMMAS (,) IN YOUR REPLIES"
  83. 5005 INPUT"DO YOU WISH TO ENTER NAME, ADDRESS, ETC.Y[146] OR N[146]";A$
  84. 5008 IF A$="N"THENGOTO5060
  85. 5010 PRINT"[147]"
  86. 5015 INPUT"NAME  (FIRST NAME,  INITIAL,  SURNAME)";AA$
  87. 5020 INPUT"SPOUSE'S GIVEN NAME";AI$
  88. 5025 INPUT"SOCIAL INSURANCE NUMBER";AB$
  89. 5030 INPUT"SPOUSE'S S.I.N.";AC$
  90. 5035 INPUT"ADDRESS (#, ST, APT#, PO BOX#, RR#)";AD$
  91. 5040 INPUT"CITY & PROVINCE";AE$
  92. 5045 INPUT"BIRTHDATE (2 FIG DAY, 2 FIG MONTH, YEAR";AF$
  93. 5050 INPUT"TYPE OF WORK OR OCCUPATION IN 1986";AG$
  94. 5055 INPUT"NAME OF PRESENT EMPLOYER";AH$
  95. 5060 PRINT"[147]   THIS PROGRAM WAS DESIGNED BY"
  96. 5070 PRINTCHR$(147)"INCOME TAX CALCULATION"
  97. 5080 PRINT:PRINT:PRINT"TOTAL EMPLOYMENT INCOME--BOX C ON ALL T4 SLIPS"
  98. 5081 GOSUB8000
  99. 5084 INPUT"";I1
  100. 5085 !CLOSE:PRINT"[147]OTHER EMPLOYMENT INCOME":GOSUB8015
  101. 5090 GOSUB7585:GOSUB7580
  102. 5095 INPUTA$:IFA$="N"THENGOTO5160
  103. 5100 INPUT"[147]SPECIFY TYPE";IT$
  104. 5105 INPUT"SPECIFY AMOUNT";I7
  105. 5110 PRINT"ANY MORE?":GOSUB7580
  106. 5115 REM
  107. 5120 INPUT A$:!CLOSE:IFA$="N"THENGOTO5160
  108. 5125 INPUT"SPECIFY TYPE";IU$
  109. 5130 INPUT"SPECIFY AMOUNT";I8
  110. 5135 PRINT"ANY MORE?";:GOSUB7580
  111. 5140 REM
  112. 5145 INPUT A$:!CLOSE:IFA$="N"THENGOTO5160
  113. 5150 INPUT"SPECIFY TYPE";IV$
  114. 5155 INPUT"SPECIFY AMOUNT";I9
  115. 5160 L1=I7+I8+I9
  116. 5165 !CLOSE:PRINT"[147]TOTAL OF O.E.I. IS ";:PRINTL1
  117. 5170 Z2=L1+I1
  118. 5175 PRINT"TOTAL EMPLOYMENT EARNINGS IS ";:PRINTZ2
  119. 5180 IF L1+I1=>2500THENL2=L1+I1-500
  120. 5185 IF L1+I1<2500THENL2=L1+I1-((L1+I1)/5)
  121. 5190 Z1=L1+I1-L2
  122. 5195 PRINT"EMPLOYMENT EXPENSE DEDUCTION =";:PRINTZ1
  123. 5200 PRINT"NET EMPLOYMENT EARNINGS IS ";:PRINTL2::GOSUB8316
  124. 5205 L3=L1+I1-L2
  125. 5210 L4=L2
  126. 5215 PRINT "[147]O.A.S.":GOSUB8040:INPUT"";I2
  127. 5220 PRINT "[147]C.P.P.":GOSUB8050:INPUT"";L5
  128. 5225 PRINT "[147]OTHER PENSION":GOSUB8060:INPUT"";I3
  129. 5230 PRINT "[147]TAXABLE FAMILY ALLOWANCE":GOSUB8070
  130. 5232 INPUT"";I4
  131. 5235 PRINT "[147]UIC BENEFITS":GOSUB8080:INPUT"";L6
  132. 5240 REM:PRINT"[147]TAXABLE DIVIDENDS FROM CANADIAN SOURCES":GOSUB8090
  133. 5242 REM:INPUT"";J2:GOSUB3011
  134. 5250 PRINT"[147]INTEREST AND OTHER INVESTMENT INCOME":GOSUB8100
  135. 5252 INPUT"";I5
  136. 5255 PRINT"[147]ALIMONY OR SEPARATION ALLOWANCE INCOME"
  137. 5256 INPUT"";L7
  138. 5260 PRINT "[147]OTHER INCOME ":GOSUB8110
  139. 5261 INPUT"PRESS EITHER Y[146] OR N[146]";A$
  140. 5263 IFA$="N"THENGOTO5270
  141. 5264 INPUT"AMOUNT ";I6
  142. 5265 INPUT"TYPE ";IW$
  143. 5270 I=I2+L5+I3+I4+L6+I5+I6+L4+J2+L7
  144. 5275 PRINT"[147]TOTAL INCOME = ";:PRINTI:PRINT"[154]":GOSUB8316
  145. 5280 GOSUB8120
  146. 5282 GOSUB8316
  147. 5285 PRINT"[147]":!HUE(2,2,1)
  148. 5287 PRINT"[147]CPP CONTRIBUTIONS":GOSUB8200
  149. 5288 INPUT"";M1:GOTO8700
  150. 5289 INPUT"";M1:GOTO5316:REM:GOTO7800
  151. 5290 IF I1>23400THENC1=23400
  152. 5291 IFI1=<23400 THENC1=I1
  153. 5292 C2=C1:IFC2<0THENC2=0:REM ADD 1986 EQUIV TO 'C2=C1-2300' AS 1ST STMNT
  154. 5293 G3=C2*.018:G3=INT(G3*100+.5)/100
  155. 5294 IFG3>M1THENG3=M1
  156. 5295 IFG3>419.4THENG3=419.4
  157. 5296 REM:PRINT"[147]YOUR CPP CONTRIBUTION SHOULD BE ";G3:GOSUB3012
  158. 5300 B3=M1-G3
  159. 5305 REM:PRINT"RIGHT NOW, AT LINE 202 ENTER ";G3
  160. 5306 B3=INT(B3*100+.5)/100
  161. 5307 IFB3<>0THENPRINT"AND GO TO LINE 453 ON PAGE 4 AND ENTER ";B3
  162. 5316 GOSUB8316
  163. 5320 PRINT"[147]UIC CONTRIBUTIONS":GOSUB8210
  164. 5321 INPUT"";M2:GOTO8720:REM GOTO5380
  165. 5322 GOTO7820:GOTO5380
  166. 5345 INPUT"ENTER TOTAL OF (BOX H) ON ALL T4'S ";Q5
  167. 5350 Q6=Q5*.0235:Q6=INT(Q6*100+.5)/100
  168. 5355 IF Q6=>M2 THEN Q9=M2
  169. 5360 IF Q6<M2 THEN Q9=Q6
  170. 5365 IF Q9>604.76THENQ9=604.76
  171. 5370 IFQ9<M2 THEN B4=M2-Q9
  172. 5377 PRINT"[147]RIGHT NOW, AT LINE 204 ENTER ";Q9
  173. 5378 B4=INT(B4*100+.5)/100:IFB4<>0THENPRINT"AND ON LINE 454 OF PAGE 4 ENTER ";B4
  174. 5379 GOSUB8316
  175. 5380 PRINT"[147]REGISTERED PENSION PLAN CONTRIBUTIONS":GOSUB8230
  176. 5381 INPUT"";M3
  177. 5390 PRINT"[147]RRSP CONTRIBUTIONS ":GOSUB8240:INPUT"";S1
  178. 5391 GOSUB3011
  179. 5395 PRINT:PRINT"[147]ANNUAL UNION OR PROFESSIONAL DUES"
  180. 5400 INPUT"(ATTACH RECEIPTS)";M4
  181. 5405 PRINT:PRINT"[147]TUITION FEES - ONLY CLAIMED BY STUDENTS"
  182. 5410 INPUT"(ATTACH RECEIPTS)";M5
  183. 5415 PRINT"[147]CHILD CARE EXPENSES ":GOSUB8250:INPUT"";M6
  184. 5416 GOSUB3011
  185. 5417 GOSUB7600
  186. 5420 PRINT"[147]OTHER DEDUCTIONS ":GOSUB3011:GOSUB8280
  187. 5425 GOSUB7580
  188. 5430 INPUTA$:IFA$="N"THENGOTO5440
  189. 5435 GOSUB7020
  190. 5440 M=G3+Q9+M3+M4+M5+M6+M7+M8+M9+S1+S6+S2+S3+S4
  191. 5445 PRINT"[147]TOTAL DEDUCTIONS (SO FAR) = ";:PRINTM:GOSUB3011
  192. 5450 J=I-M
  193. 5455 PRINT"NET INCOME    =    ";:PRINTJ
  194. 5460 GOSUB8316
  195. 5465 IFJ>38610 AND L6>0 THENGOSUB6975
  196. 5470 B3=M1-G3
  197. 5475 B4=M2-Q9
  198. 5480 PRINT"[147]        PERSONAL EXEMPTIONS"
  199. 5481 GOSUB8300:GOSUB8316
  200. 5482 INPUT"IN WHAT YEAR WERE YOU BORN";A1
  201. 5485 !HUE(12,12,13):PRINT"[147]BASIC PERSONAL EXEMPTION IS 4180":GOSUB8316
  202. 5486 N1=4180
  203. 5490 IFA1=<1921THENN9=2610
  204. 5491 IFN9=2610THENPRINT"[147]YOU GET AN AGE DEDUCTION OF 2610":GOSUB8316
  205. 5495 IFA1>1921THENN9=0
  206. 5500 PRINT"[147]MARRIED ON DEC 31 1986 AND SUPPORTED"
  207. 5505 INPUT"SPOUSE IN 1986?   'Y' OR 'N'";A$
  208. 5510 N3=0
  209. 5515 IF A$="Y" THEN GOSUB 6500
  210. 5520 PRINT"[147]EXEMPTION FOR WHOLLY DEPENDENT CHILDREN":GOSUB8260
  211. 5521 PRINT"EACH CHILD REQUIRES ONE LINE ON THE     BOTTOM OF PAGE THREE"
  212. 5525 PRINT:PRINT"NUMBER OF CHILDREN BORN IN 1969 OR LATER"
  213. 5530 INPUT"WHOSE INCOME DID NOT EXCEED $2760.00";N4:PRINT"[147]"
  214. 5531 IFN4=>1THENPRINT"[147]ENTER ";N4;:PRINT" LINES, EACH CLAIMING $710.00"::GOSUB8316
  215. 5532 GOSUB8260
  216. 5535 PRINT"NUMBER OF CHILDREN WHO WERE BORN IN 1968"
  217. 5537 PRINT"OR EARLIER[146] WHOSE INCOME DID NOT EXCEED"
  218. 5540 INPUT"  $1340.00";N5
  219. 5541 IFN5=>1THENPRINT"[147]ENTER ";N5;:PRINT" LINES, EACH CLAIMING $1420.00"::GOSUB8316
  220. 5545 PRINT"[147]ANY OTHERS?":GOSUB8270
  221. 5550 GOSUB7580
  222. 5555 INPUT"";A$:IFA$="Y"THENGOSUB6595READY.
  223. 5560 N6=(N4*710)+(N5*1420)+E3+E6+E9
  224. 5565 PRINT"DEPENDENT CHILDREN DEDUCTION = ";:PRINTN6:GOSUB8316
  225. 5570 N8=N1+N9+N6+N3
  226. 5575 PRINT"[147]TOTAL PERSONAL EXEMPTIONS = ";:PRINTN8:GOSUB8316
  227. 5580 K=J-N8
  228. 5585 PRINT"[147]NET INC MINUS PERS EXEM ";:PRINTK:GOSUB8316
  229. 5590 PRINT"[147]  INTEREST INCOME DEDUCTION"
  230. 5595 INPUT"FROM SCHED 4 ";D1
  231. 5600 IF D1>1000THENPRINT"1000 IS MAXIMUM":GOSUB3012:GOTO5590
  232. 5605 IF D1>(J2+I5)THENPRINT"[147]CANT BE > LINES 120 + 121":GOSUB3012:GOTO5590
  233. 5610 PRINT"YOUR INTEREST INCOME DEDUCTION IS ";:PRINTD1:GOSUB3013
  234. 5615 INPUT"[147]PENSION INCOME DEDUCTION";D2
  235. 5620 IF D2>1000THENPRINT"YOU'RE CLAIMING TOO MUCH":GOSUB3013:GOTO5615
  236. 5625 PRINT"[147]MEDICAL DEDUCTION - REQUIRES COMPLETED"
  237. 5630 PRINT"SCHED 9 & ALL RECEIPTS"
  238. 5631 J5=INT(J*100+.5)/100:J6=J5*.03:J6=INT(J6*100+.5)/100
  239. 5632 PRINT"YOU MAY NOT CLAIM UNLESS YOUR MEDICAL"
  240. 5633 PRINT"BILL EXCEEDS ";J6:PRINT"   Y[146]  OR  N[146]?"
  241. 5635 GOSUB7580
  242. 5640 INPUTA$:IFA$="N"THENGOTO5665
  243. 5645 INPUT"TOTAL AMOUNT OF MEDICAL BILLS";R8
  244. 5650 R7=.03*J:R7=INT(R7*100+.5)/100:D6=R8-R7
  245. 5651 D6=D6*100:D6=INT(D6+.5):D6=D6/100
  246. 5655 IFD6=<0THEND6=0
  247. 5660 PRINT"YOUR MEDICAL DEDUCTION IS ";:PRINTD6:GOSUB8316
  248. 5665 INPUT"[147]CHARITABLE DONATION DEDUCTION";D5
  249. 5670 INPUT"[147]BLIND OR DISABILITY DEDUCTION";D3
  250. 5675 INPUT"[147]EDUCATION DEDUCTION";D4
  251. 5680 PRINT"[147]DEDUCTIONS TRANSFERRED FROM SPOUSE"
  252. 5685 INPUT"ATTACH COMPLETED SCHED 2 ";D7
  253. 5690 D8=D1+D2+D3+D4+D5+D6+D7+F2
  254. 5695 K2=K-D8
  255. 5700 IF K2<0THENK2=0
  256. 5705 IF K2>30000 GOTO8975
  257. 5710 IFJ2>0THENGOTO6750
  258. 5715 PRINT"[147]CHECK TAX TABLE TO SEE HOW MUCH "
  259. 5720 PRINT"FEDERAL TAX IS PAYABLE ON ";:PRINTK2
  260. 5725 INPUT"ENTER THAT AMOUNT HERE";T1
  261. 5726 PRINT"[147]CHECK TAX TABLE TO SEE HOW MUCH "
  262. 5727 PRINT"INDIVIDUAL SURTAX IS PAYABLE ON";:PRINTK2
  263. 5728 INPUT"ENTER THAT AMOUNT HERE";T2
  264. 5730 T3=T1+T2:PRINT"NET FEDERAL TAX PAYABLE ";:PRINTT3
  265. 5735 PRINT"CHECK TAX TABLE TO SEE HOW MUCH "
  266. 5740 PRINT"PROVINCIAL TAX IS PAYABLE ON ";:PRINTK2
  267. 5745 INPUT"ENTER THAT AMOUNT HERE";T4
  268. 5750 T8=T4+T3
  269. 5755 INPUT"TOTAL TAX DEDUCTED PER INFO SLIPS ";B1
  270. 5760 PRINT"[147]ELIGIBLE FOR ONTARIO TAX CREDITS?"
  271. 5765 GOSUB7580
  272. 5770 INPUTA$:IFA$="Y"THENGOTO7080
  273. 5771 PRINT"[147]ARE YOU ELIGIBLE FOR CHILD TAX CREDIT?"
  274. 5772 PRINT"IF SO YOU MUST COMPLETE A SCHEDULE 10"
  275. 5773 INPUT"Y[146] OR N[146]";A$
  276. 5774 IFA$="Y"THENGOTO8480
  277. 5775 INPUT"[147]CPP OVERPAYMENT";B3
  278. 5785 INPUT"[147]UIC OVERPAYMENT";B4
  279. 5795 INPUT"[147]AMOUNTS PAID BY INSTALMENTS ";B5
  280. 5805 IFJ<20000THENGOTO7420
  281. 5810 B8=B1+B2+B3+B4+B5+B6+SH:PRINT"TOTAL CREDITS ";B8
  282. 5815 F1=T8-B8
  283. 5816 F1=INT(F1*100+.5)/100
  284. 5820 IF F1=>1THEN PRINT" YOU   OWE   ";:PRINTF1"
  285. 5825 [139] F1[177][171]1[175]F1[179]1[167] [153]"NO PAYMENT OR REFUND REQUIRED"
  286. 5830 [139] F1[178][179][171]1 [167] [153]"WAITYOU GET A REFUND OF ";:[153]F1[172][171]1:[153]"WAIT"
  287. 5833 [141]8316
  288. 5835 [153]"LOAD DO YOU WANT A PAGE COPY WAIT"
  289. 5840 [141]7580
  290. 5845 [133]A$:[139]A$[178]"N"[167]X[178]480:[153]"LOAD":[137]5890
  291. 5850 X[178]1
  292. 5855 [159]4,4:[157]4
  293. 5860 [153]AA$,AI$
  294. 5865 [153]AB$,AC$
  295. 5870 [153]AD$,AE$
  296. 5875 [153]AF$
  297. 5880 [153]AG$
  298. 5885 [153]AH$
  299. 5890 [139]I1[179][177]0[167][153]"LINE 101 IS ";:[153]I1:X[178]X[170]1
  300. 5895 [139]X[178][177]495[167][141]7365
  301. 5900 [139]L1[179][177]0[167][153]"LINE 104 IS ";:[153]L1;:[153]" ";IT$,IU$,IV$:X[178]X[170]1
  302. 5905 [139]X[178][177]495[167][141]7365
  303. 5910 [139]Z2[179][177]0[167][153]"LINE 105 IS ";:[153]Z2:X[178]X[170]1
  304. 5915 [139]X[178][177]495[167][141]7365
  305. 5920 [139]Z1[179][177]0[167][153]"LINE 108 IS ";:[153]Z1:X[178]X[170]1
  306. 5925 [139]X[178][177]495[167][141]7365
  307. 5930 [139]L2[179][177]0[167][153]"LINE 111 IS ";:[153]L2:X[178]X[170]1
  308. 5935 [139]X[178][177]495[167][141]7365
  309. 5940 [139]I2[179][177]0[167][153]"LINE 113 IS ";:[153]I2:X[178]X[170]1
  310. 5945 [139]X[178][177]495[167][141]7365
  311. 5950 [139]L5[179][177]0[167][153]"LINE 114 IS ";:[153]L5:X[178]X[170]1
  312. 5955 [139]X[178][177]495[167][141]7365
  313. 5960 [139]I3[179][177]0[167][153]"LINE 115 IS ";:[153]I3:X[178]X[170]1
  314. 5965 [139]X[178][177]495[167][141]7365
  315. 5970 [139]I4[179][177]0[167][153]"LINE 118 IS ";:[153]I4:X[178]X[170]1
  316. 5975 [139]X[178][177]495[167][141]7365
  317. 5980 [139]L6[179][177]0[167][153]"LINE 119 IS ";:[153]L6:X[178]X[170]1
  318. 5985 [139]X[178][177]495[167][141]7365
  319. 5990 [139]J2[179][177]0[167][153]"LINE 120 IS ";:[153]J2:X[178]X[170]1
  320. 5995 [139]X[178][177]495[167][141]7365
  321. 6000 [139]I5[179][177]0[167][153]"LINE 121 IS ";:[153]I5:X[178]X[170]1
  322. 6005 [139]X[178][177]495[167][141]7365
  323. 6010 [139]I6[179][177]0[167][153]"LINE 130 IS ";:[153]I6;:[153]" ";IW$:X[178]X[170]1
  324. 6015 [139]X[178][177]495[167][141]7365
  325. 6020 [139]I[179][177]0[167][153]"LINES 150 & 200 ARE ";:[153]I:X[178]X[170]1
  326. 6025 [139]X[178][177]495[167][141]7365
  327. 6030 [139]G3[179][177]0[167][153]"LINE 202 IS ";:[153]G3:X[178]X[170]1
  328. 6035 [139]X[178][177]495[167][141]7365
  329. 6040 [139]Q9[179][177]0[167][153]"LINE 204 IS ";:[153]Q9:X[178]X[170]1
  330. 6045 [139]X[178][177]495[167][141]7365
  331. 6050 [139]M3[179][177]0[167][153]"LINE 207 IS ";:[153]M3:X[178]X[170]1
  332. 6055 [139]X[178][177]495[167][141]7365
  333. 6060 [139]S1[179][177]0[167][153]"LINE 208 IS ";:[153]S1:X[178]X[170]1
  334. 6065 [139]X[178][177]495[167][141]7365
  335. 6075 [139]X[178][177]495[167][141]7365
  336. 6080 [139]M4[179][177]0[167][153]"LINE 212 IS ";:[153]M4:X[178]X[170]1
  337. 6085 [139]X[178][177]495[167][141]7365
  338. 6090 [139]M5[179][177]0[167][153]"LINE 213 IS ";:[153]M5:X[178]X[170]1
  339. 6095 [139]X[178][177]495[167][141]7365
  340. 6100 [139]M6[179][177]0[167][153]"LINE 214 IS ";:[153]M6;:[153]"INCLUDE SCHED 5"
  341. 6101 X[178]X[170]1:[139]X[178][177]495[167][141]7365
  342. 6102 [139]M7[179][177]0[167][153]"LINE 219 IS";:[153]M7:X[178]X[170]1:[139]X[178][177]495[167][141]7365
  343. 6103 [139]M8[179][177]0[167][153]"LINE 220 IS";:[153]M8:X[178]X[170]1:[139]X[178][177]495[167][141]7365
  344. 6105 [139]M9[179][177]0[167][153]"LINE 221 IS";:[153]M9:X[178]X[170]1:[139]X[178][177]495[167][141]7365
  345. 6110 [139]S2[179][177]0[167][153]"LINE 222 IS ";:[153]S2;:[153]SA$"WAIT":X[178]X[170]1
  346. 6115 [139]X[178][177]495[167][141]7365
  347. 6120 [139]S3[179][177]0[167][153]"LINE 222 IS ";:[153]S3;:[153]SB$"WAIT":X[178]X[170]1
  348. 6125 [139]X[178][177]495[167][141]7365
  349. 6130 [139]S4[179][177]0[167][153]"LINE 222 IS ";:[153]S4;:[153]SC$"WAIT":X[178]X[170]1
  350. 6135 [139]X[178][177]495[167][141]7365
  351. 6140 [139]M[179][177]0[167][153]"LINE 223 IS ";:[153]M:X[178]X[170]1
  352. 6145 [139]X[178][177]495[167][141]7365
  353. 6150 [139]J[179][177]0[167][153]"LINE 224 IS ";:[153]J:X[178]X[170]1
  354. 6155 [139]X[178][177]495[167][141]7365
  355. 6160 [139]N9[179][177]0[167][153]"LINE 229 IS ";:[153]N9:X[178]X[170]1
  356. 6165 [139]X[178][177]495[167][141]7365
  357. 6170 [139]N3[179][177]0[167][153]"LINE 230 IS ";:[153]N3:X[178]X[170]1
  358. 6175 [139]X[178][177]495[167][141]7365
  359. 6180 [139]N6[179][177]0[167][153]"LINE 231 IS ";:[153]N6:X[178]X[170]1
  360. 6185 [139]X[178][177]495[167][141]7365
  361. 6190 [139]N8[179][177]0[167][153]"LINE 235 IS ";:[153]N8:X[178]X[170]1
  362. 6195 [139]X[178][177]495[167][141]7365
  363. 6200 [139]K[179][177]0[167][153]"LINE 236 IS ";:[153]K:X[178]X[170]1
  364. 6205 [139]X[178][177]495[167][141]7365
  365. 6210 [139]D1[179][177]0[167][153]"LINE 238 IS ";:[153]D1:X[178]X[170]1
  366. 6215 [139]X[178][177]495[167][141]7365
  367. 6220 [139]D2[179][177]0[167][153]"LINE 240 IS ";:[153]D2:X[178]X[170]1
  368. 6225 [139]X[178][177]495[167][141]7365
  369. 6230 [139]D6[179][177]0[167][153]"LINE 241 IS ";:[153]R8;:[153]"- ";:[153]R7
  370. 6235 X[178]X[170]1:[139]X[178][177]495[167][141]7365
  371. 6240 [139]D6[179][177]0[167][153]"LINE 242 IS ";:[153]D6:X[178]X[170]1
  372. 6245 [139]X[178][177]495[167][141]7365
  373. 6250 [139]D5[179][177]0[167][153]"LINE 243 IS ";:[153]D5;:[153]" ATTACH RECEIPTS":X[178]X[170]1
  374. 6255 [139]X[178][177]495[167][141]7365
  375. 6260 [139]D3[179][177]0[167][153]"LINE 246 IS ";:[153]D3:X[178]X[170]1
  376. 6265 [139]X[178][177]495[167][141]7365
  377. 6270 [139]D4[179][177]0[167][153]"LINE 247 IS ";:[153]D4;:[153]" ATTACH FORM T2202 OR T2202A"
  378. 6275 [139]F2[179][177]0[167][153]"LINE 250 IS ";:[153]F2:X[178]X[170]1
  379. 6280 [139]X[178][177]495[167][141]7365
  380. 6285 [139]D8[179][177]0[167][153]"LINE 255 IS ";:[153]D8:X[178]X[170]1
  381. 6290 [139]X[178][177]495[167][141]7365
  382. 6295 [139]K2[179][177]0[167][153]"LINES 260 & 400 ARE ";:[153]K2:X[178]X[170]1
  383. 6300 [139]X[178][177]495[167][141]7365
  384. 6305 [139]T1[179][177]0[167][153]"LINE 402 IS ";:[153]T1:X[178]X[170]1
  385. 6310 [139]X[178][177]495[167][141]7365
  386. 6315 [139]X[178][177]495[167][141]7365
  387. 6320 [139]V8[179][177]0[167][153]"LINE 406 IS ";:[153]V8:X[178]X[170]1
  388. 6325 [139]X[178][177]495[167][141]7365
  389. 6330 [139]T1[179][177]0[167][153]"LINE 406 IS ";:[153]T1:X[178]X[170]1
  390. 6332 [139]X[178][177]495[167][141]7365
  391. 6333 [139]T2[179][177]0[167][153]"LINE 419 IS ";:[153]T2:X[178]X[170]1
  392. 6335 [139]X[178][177]495[167][141]7365
  393. 6340 [139]T3[179][177]0[167][153]"LINE 420 IS ";:[153]T3:X[178]X[170]1
  394. 6345 [139]X[178][177]495[167][141]7365
  395. 6350 [139]T4[179][177]0[167][153]"LINE 423 IS ";:[153]T4:X[178]X[170]1
  396. 6355 [139]X[178][177]495[167][141]7365
  397. 6360 [139]W7[179][177]0[167][153]"LINE 423 IS ";:[153]W7:X[178]X[170]1
  398. 6365 [139]X[178][177]495[167][141]7365
  399. 6370 [139]F2[179][177]0[167][153]"LINE 433 IS ";:[153]F2:X[178]X[170]1
  400. 6371 [139]X[178][177]495[167][141]7365
  401. 6372 [139]F6[179][177]0[167][153]"LINE 434 IS ";:[153]F6:X[178]X[170]1
  402. 6375 [139]X[178][177]495[167][141]7365
  403. 6380 [139]T8[179][177]0[167][153]"LINE 435 IS ";:[153]T8:X[178]X[170]1
  404. 6385 [139]X[178][177]495[167][141]7365
  405. 6390 [139]W6[179][177]0[167][153]"LINE 435 IS ";:[153]W6:X[178]X[170]1
  406. 6395 [139]X[178][177]495[167][141]7365
  407. 6400 [139]B1[179][177]0[167][153]"LINE 440 IS ";:[153]B1:X[178]X[170]1
  408. 6405 [139]X[178][177]495[167][141]7365
  409. 6410 [139]B2[179][177]0[167][153]"LINE 448 IS ";:[153]B2:X[178]X[170]1
  410. 6415 [139]X[178][177]495[167][141]7365
  411. 6420 [139]B6[179][177]0[167][153]"LINE 450 IS ";:[153]B6:X[178]X[170]1
  412. 6422 [139]SH[179][177]0[167][153]"LINE 451 IS ";SH:X[178]X[170]1
  413. 6425 [139]X[178][177]495[167][141]7365
  414. 6430 [139]B3[177]0[167][153]"LINE 453 IS ";:[153]B3;
  415. 6435 [143]:IFB3>0THENPRINT" LINE 202 AMENDED TO AGREE":X=X+1
  416. 6440 [139]X[178][177]495[167][141]7365
  417. 6445 [139]B4[177]0[167][153]"LINE 454 IS ";:[153]B4;
  418. 6450 [143]:IFB4>0THENPRINT" LINE 204 AMENDED TO AGREE":X=X+1
  419. 6455 [139]X[178][177]495[167][141]7365
  420. 6460 [139]B5[179][177]0[167][153]"LINE 455 IS ";:[153]B5:X[178]X[170]1
  421. 6465 [139]X[178][177]495[167][141]7365
  422. 6470 [139]B8[179][177]0[167][153]"LINE 463 IS ";:[153]B8:X[178]X[170]1
  423. 6475 [139]X[178][177]495[167][141]7365
  424. 6480 [139]F1[179]0[167][153]"LINE 464 IS ";[171]1[172]F1
  425. 6485 [139] F1[177]1[167][153]"LINE 465 IS ";:[153]F1
  426. 6490 [139] F1[178][179].99[175]F1[178][177][171].99[167][153]"NO REFUND OR RETURN REQUIRED"
  427. 6492 [139]A$[178]"Y"[167][152]4:[160]4
  428. 6493 [141]8316
  429. 6495 [137]8800
  430. 6500 [133]"LOADENTER SPOUSE'S INCOME FOR 1986";N3
  431. 6505 N7[178]N3:[139] N3[178][179]520 [167] N3[178]3660:[137]6520
  432. 6510 [139] N3[177]520 [175] N3[179]4180[167]N3[178]4180[171]N3
  433. 6515 [139] N3[178][177]4180[167]N3[178]0
  434. 6520 [153]"LOADMARRIED EXEMPTION = ";N3
  435. 6525 [141]8316:[142]
  436. 6530 [139]I1[177]23400[167]C1[178]23400
  437. 6535 [139]I1[178][179]23400[167]C1[178]I1
  438. 6540 C2[178]C1[171]2300:[139]C2[179]0[167]C2[178]0
  439. 6545 G3[178]C2[172].018
  440. 6550 [139] G3[177]M1[167]G3[178]M1
  441. 6555 [153]"YOUR CPP CONTRIB SHOULD BE ";G3
  442. 6560 B3[178]M1[171]G3
  443. 6565 [137]5320
  444. 6570 [139] C1[179]S8 [167] G1[178]C1
  445. 6575 G3[178](G1[171]C2)[172].018
  446. 6580 [139] G3[177]419.4 [167] G3[178]419.4
  447. 6585 [153]"CORRECT PAYMENT FOR CPP IS ";G3
  448. 6590 [142]
  449. 6595 [133]"LOADCHILD'S YEAR OF BIRTH";E1
  450. 6600 [133]"CHILD'S NET INCOME";E2
  451. 6605 [139]E1[177]1968[167][139]E2[178][179]2760[167]L8[178]44:[137]7700
  452. 6610 [139]E1[179]1969[167][139]E2[178][179]1340[167]L8[178]33:[137]7700
  453. 6615 [139] E1[177]1968 [167]E3[178]710[171](.5[172](E2[171]2760))
  454. 6620 [139]E1[179]1969[167]E3[178]1420[171](.5[172](E2[171]1340))
  455. 6625 [139]E3[179]0[167]E3[178]0
  456. 6626 E3[178][181](E3[172]100[170].5)[173]100
  457. 6630 [153]"DEDUCTION IS ";E3
  458. 6635 [153]"ANY OTHERS?"
  459. 6640 [141]7580
  460. 6645 [133]A$:[139]A$[178]"N"[167][142]
  461. 6650 [133]"LOADCHILD'S YEAR OF BIRTH";E4
  462. 6655 [133]"CHILD'S NET INCOME";E5
  463. 6660 [139]E4[177]1968[167][139]E5[178][179]2760[167]L8[178]44:[137]7700
  464. 6665 [139]E4[179]1969[167][139]E5[178][179]1340[167]L8[178]33:[137]7700
  465. 6670 [139] E4[177]1968 [167]E6[178]710[171](.5[172](E5[171]2760))
  466. 6675 [139]E4[179]1969[167]E6[178]1420[171](.5[172](E5[171]1340))
  467. 6680 [139]E6[179]0[167]E6[178]0
  468. 6681 E6[178][181](E6[172]100[170].5)[173]100
  469. 6685 [153]"DEDUCTION IS ";E6
  470. 6690 [153]"ANY OTHERS?"
  471. 6695 [141]7580
  472. 6700 [133]A$:[139]A$[178]"N"[167][142]
  473. 6705 [133]"LOADCHILD'S YEAR OF BIRTH";E7
  474. 6710 [133]"CHILD'S NET INCOME";E8
  475. 6715 [139]E7[177]1968[167][139]E8[178][179]2760[167]L8[178]44:[137]7700
  476. 6720 [139]E7[179]1969[167][139]E8[178][179]1340[167]L8[178]33:[137]7700
  477. 6725 [139] E7[177]1968 [167]E9[178]710[171](.5[172](E8[171]2760))
  478. 6730 [139]E7[179]1969[167]E9[178]1420[171](.5[172](E8[171]1340))
  479. 6735 [139] E9[179]0[167]E9[178]0
  480. 6736 E9[178][181](E9[172]100[170].5)[173]100
  481. 6740 [153]"DEDUCTION IS ";E9
  482. 6745 [142]
  483. 6750 :
  484. 6755 [139] K2[178][179]1305 [167] V1[178].06[172]K2
  485. 6760 [139] K2[178][177]1305 [175] K2[179]2611[167]V1[178]78[170](.16[172](K2[171]1305))
  486. 6765 [139] K2[178][177]2611 [175] K2[179]5221[167]V1[178]287[170](.17[172](K2[171]2611))
  487. 6770 [139] K2[178][177]5221 [175] K2[179]7832[167]V1[178]731[170](.18[172](K2[171]5221))
  488. 6775 [139] K2[178][177]7832 [175] K2[179]13054[167]V1[178]1201[170](.19[172](K2[171]7832))
  489. 6780 [139] K2[178][177]13054 [175] K2[179]18275[167]V1[178]2193[170](.20[172](K2[171]13054))
  490. 6785 [139] K2[178][177]18275 [175] K2[179]23496[167]V1[178]3237[170](.23[172](K2[171]18275))
  491. 6790 [139] K2[178][177]23496 [175] K2[179]36550[167]V1[178]4438[170](.25[172](K2[171]23496))
  492. 6795 [139] K2[178][177]36550 [175] K2[179]62652[167]V1[178]7702[170](.30[172](K2[171]36550))
  493. 6800 [139] K2[178][177]62657 [167] V1[178]15534[170].34[172](K2[171]59424)
  494. 6805 [153]"TOTAL FEDERAL TAX IS ";V1
  495. 6810 [133]"FEDERAL DIVIDEND TAX CREDIT";V2
  496. 6815 [139] V2[177]V1[167]V2[178]V1
  497. 6820 V[178]V1[171]V2:[153]"BASIC FEDERAL TAX IS ";V
  498. 6825 [139] V[179]100[167]V3[178]V
  499. 6830 [139] V[178][177]100 [167] V3[178]100
  500. 6835 [153]"YOU'RE ALLOWED A REDUCTION OF ";V3
  501. 6840 V5[178]V3
  502. 6850 [153]"FEDERAL TAX REDUCTION IS ";V5
  503. 6855 [139]V[177]6000[167]V6[178](V[171]6000)[172].1
  504. 6860 V7[178]V5[171]V6:[139]V7[178][179]0[167]V7[178]0
  505. 6865 [153]"NET FEDERAL TAX REDUCTION = ";V7
  506. 6870 V8[178]V[171]V7:[153]"FEDERAL TAX  ";V8:[153]"WAIT"
  507. 6875 W1[178]V[172].50
  508. 6880 [153]"BASIC ONTARIO TAX = ";W1
  509. 6885 W2[178](W1[171]110.8)[172].05
  510. 6890 [153]"ONT SOCIAL SERVICES MAINT TAX = ";W2
  511. 6895 W[178]W1[170]W2:[153]"ONTARIO TAX IS ";W
  512. 6900 [139]K2[179][178]2026[167]W8[178]W
  513. 6905 [139]K2[177]2026[175]K2[179]2218[167]W8[178](2218[171]K2)[173]2
  514. 6910 W7[178]W[171]W8:[153]"ONTARIO TAX PAYABLE IS ";W7:[153]"WAIT"
  515. 6915 W6[178]W7[170]V8[170]F2:[153]"TOTAL TAX PAYABLE IS ";W6
  516. 6920 [133]"TOTAL TAX DEDUCTED PER INFO SLIPS ";B1
  517. 6925 [153]"ELIGIBLE FOR ONTARIO TAX CREDITS?"
  518. 6930 [141]7580
  519. 6935 [133]A$:[139]A$[178]"Y"[167][137]7210
  520. 6940 [139] B3[177]0[167][153]"YOU OVERPAID CPP BY ";B3
  521. 6945 [139]B4[177]0[167][153]"YOU OVERPAID UIC BY ";B4
  522. 6950 [133]"AMOUNTS PAID BY INSTALMENTS ";B5
  523. 6955 [133] "CHILD TAX CREDIT ";B6
  524. 6960 B8[178]B1[170]B2[170]B3[170]B4[170]B5[170]B6:[153]"TOTAL CREDITS = ";B8
  525. 6965 F1 [178]W6[171]B8
  526. 6970 [137]5820
  527. 6975 [153]"LOADYOU MUST COMPLETE UIC REPAYMENT PAYABLE"
  528. 6980 [153]"          ON PAGE 3 OF YOUR T1"
  529. 6985 [139](J[171]38610)[172].3[179].3[172]L6 [167] F2[178](J[171]38610)[172].3
  530. 6990 [139].3[172]L6[179](J[171]38610)[172].3 [167] F2[178].3[172]L6
  531. 6992 F2[178][181](F2[172]100[170].5)[173]100
  532. 6995 [139] F2[177]0[167][153]"LINES 250WAIT AND 433WAIT ARE";F2
  533. 7000 [153]"ANY REPAYMENT ALREADY MADE SHOULD BE"
  534. 7005 [153]"SUBTRACTED FROM AMOUNT ON LINE 119WAIT"
  535. 7010 [141]8316:[142]
  536. 7015 [137]5395
  537. 7020 [133]"TYPE OF DEDUCTION";SA$
  538. 7025 [133]"AMOUNT";S2
  539. 7030 [153]"LOADOTHER DEDUCTIONS "
  540. 7035 [141]7580
  541. 7040 [133]A$:[139]A$[178]"N"[167][137]5440
  542. 7045 [133]"TYPE OF DEDUCTION";SB$
  543. 7050 [133]"AMOUNT";S3
  544. 7055 [153]"LOADOTHER DEDUCTIONS "
  545. 7060 [141]7580
  546. 7065 [133]A$:[139]A$[178]"N"[167][137]5440
  547. 7070 [133]"TYPE OF DEDUCTION";SC$
  548. 7075 [133]"AMOUNT";S4
  549. 7076 [142]
  550. 7080 [133]"LOADRENT PAID IN 1985 ";O1
  551. 7085 O2[178]O1[173]5:O2[178][181](O2[172]100[170].5)[173]100
  552. 7090 [133]"PROPERTY TAX PAID IN 1985 ";O3
  553. 7095 [133]"COLLEGE RESIDENCE ";O4:[139]O4[177]25[167]O4[178]25
  554. 7100 O5[178]O2[170]O3[170]O4
  555. 7105 [139] O5[178][177]180[167]O6[178]180
  556. 7110 [139] O5[179]180[167]O6[178]O5
  557. 7114 O7[178]O6[170](O5[173]10):O7[178][181](O7[172]100[170].5)[173]100:[153]O7
  558. 7120 O8[178]O7[170](N8[172].01)
  559. 7121 [143] O8=O8*100:O8=INT(O8+.5):O8=O8/100
  560. 7122 O8[178][181](O8[172]100[170].5)[173]100
  561. 7125 [139] K2[178][179]2026[167]O9[178]0:[137]7135
  562. 7130 O9[178]K2[172].02
  563. 7132 O9[178][181](O9[172]100[170].5)[173]100
  564. 7135 B2[178]O8[171]O9:[139]B2[179]0[167]B2[178]0
  565. 7140 [139] O2[177]0[167][153]"LINE 555 IS ";O2
  566. 7145 [139] O3[177]0[167][153]"LINE 556 IS ";O3
  567. 7150 [139] O4[177]0[167][153]"LINE 558 IS ";O4
  568. 7155 [139] O5[177]0[167][153]"LINE 559 IS ";O5
  569. 7160 [139] O6[177]0[167][153]"                             ";O6
  570. 7165 [139] O5[177]0[167][153]"                              ";O5[173]10
  571. 7170 [139] O7[177]0[167][153]"TOTAL PROPERTY TAX CREDIT IS ";O7
  572. 7174 P3[178]N8[173]100:P3[178][181](P3[172]100[170].5)[173]100
  573. 7175 [139] O7[177]0[167][153]"SALES TAX CREDIT = ";P3
  574. 7176 P4[178]P3[170]O7
  575. 7180 [139] P4[177]0[167][153]"(A) = ";P4
  576. 7185 [139] O9[177]0[167][153]"(B) = ";O9
  577. 7186 B2[178]P4[171]O9:[139]B2[179]0[167]B2[178]0
  578. 7187 B2[178][181](B2[172]100[170].5)[173]100
  579. 7188 [139]B2[177]500[167]B2[178]500
  580. 7189 [139]B2[179]0[167]B2[178]0
  581. 7190 [153] "ONTARIO TAX CREDIT = ";B2"WAIT"
  582. 7191 [153]"ENTER THIS NUMBER ON LINE 448"
  583. 7192 [153]"SYSCOMPLETE YOUR ONT. TAX CREDIT FORM NOW"
  584. 7193 [141]8316:[137]5771
  585. 7205 [153]"LOAD":[137]7140
  586. 7210 [133]"RENT PAID IN 1986 ";O1
  587. 7215 O2[178]O1[173]5
  588. 7220 [133]"PROPERTY TAX PAID IN 1986 ";O3
  589. 7225 [133]"COLLEGE RESIDENCE ";O4:[139]O4[177]25[167]O4[178]25
  590. 7230 O5[178]O2[170]O3[170]O4
  591. 7235 [139] O5[178][177]180[167]O6[178]180
  592. 7240 [139] O5[179]180[167]O6[178]O5
  593. 7245 O7[178]O6[170](O5[172].1)
  594. 7246 [153]O7:[129]X[178]1[164]5000:[130]
  595. 7250 O8[178]O7[170](N8[172].01)
  596. 7255 [139] K2[178][179]2026[167]O9[178]0:[137]7135
  597. 7260 O9[178]K2[172].02
  598. 7265 B2[178]O8[171]O9:[139]B2[179]0[167]B2[178]0
  599. 7270 [139] O2[177]0[167][153]"LINE 555 IS ";O2
  600. 7275 [139] O3[177]0[167][153]"LINE 556 IS ";O3
  601. 7280 [139] O4[177]0[167][153]"LINE 558 IS ";O4
  602. 7285 [139] O5[177]0[167][153]"LINE 559 IS ";O5
  603. 7290 [139] O6[177]0[167][153]"                             ";O6
  604. 7295 [139] O5[177]0[167][153]"                             ";.1[172]O5
  605. 7300 [139] O7[177]0[167][153]"TOTAL PROPERTY TAX CREDIT IS ";O7"CONT"
  606. 7305 [139] O7[177]0[167][153]"SALES TAX CREDIT = ";.01[172]N8
  607. 7310 [139] O8[177]0[167][153]"(A) = ";O8
  608. 7315 [139] O9[177]0[167][153]"(B) = ";O9
  609. 7320 [139] B2[177]0[167][153] "ONTARIO TAX CREDIT = ";B2"WAIT"
  610. 7325 [153]"READY TO CONTINUE":[141]7580
  611. 7330 [133]A$:[139]A$[178]"Y"[167][137]6940
  612. 7335 [153]"LOAD":[137]7270
  613. 7340 [141]7580
  614. 7345 [133]A$:[139]A$[178]"Y"[167]X[178]480:[142]
  615. 7350 [178]2855
  616. 7355 VLU[178]VLU[170](VLU[172]PR)
  617. 7360 [128]
  618. 7365 X[178]475:[133]"HIT RETURNWAIT TO CONTINUE";A$
  619. 7370 [153]"LOAD":[142]
  620. 7375 [133]B$:[139] B$[179][177]""[167]7375
  621. 7380 [133]B$:[139]B$[178]""[167]7380
  622. 7385 [153]""
  623. 7390 [153][199](147)
  624. 7395 [153]:[142]
  625. 7400 [128]
  626. 7405 [153]"RUN/STOP & RESTORE KEY END PROGRAM"
  627. 7410 [133]"ANY OTHER KEY REPEATS LINE NO. PRINTOUT";A$
  628. 7415 [137]5835
  629. 7420 [153]"LOADYOU MAY QUALIFY FOR THE FEDERAL SALES TAX CREDIT."
  630. 7425 [133]"DO YOU WANT TO TRY FOR IT? YWAIT OR NWAIT";A$
  631. 7430 [139] A$[178]"N"[167][137]5810
  632. 7440 Y6[178]J[170]N7
  633. 7445 [139]Y6[177]20000[167][153]"SORRY, INCOME TOO HIGH":[129]X[178]1[164]5000:[130]:[137]5810
  634. 7450 [153]"LOADWHAT IS THE TOTAL OF THE FOLLOWING "
  635. 7455 [153]"ITEMS RECEIVED BY BOTH YOU AND YOUR"
  636. 7460 [153]"SPOUSE":[153]"SOCIAL ASSISTANCE PAYMENTS,"
  637. 7465 [153]"GUARANTEED INCOME SUPPLEMENT"
  638. 7470 [153]"SPOUSE'S ALLOWANCE"
  639. 7475 [133]"WORKER'S COMPENSATION PAYMENTS";Y3
  640. 7480 Y5[178]Y6[170]Y3
  641. 7485 [153]"LOADPLEASE NOTE THAT A MARRIED COUPLE"
  642. 7490 [153]"MAY ONLY MAKE ONE CLAIM BETWEEN THEM"
  643. 7495 [153]"YOU ARE NOW MAKING THE CLAIM FOR"
  644. 7500 [153]"YOUR FAMILY."
  645. 7501 SA[178]50
  646. 7505 [153]"YOUR CLAIM IS FOR ";SA
  647. 7510 [133]"ARE YOU CLAIMING FOR YOUR SPOUSE YWAIT OR NWAIT";A$
  648. 7515 [139] A$[178]"Y"[167]SB[178]50:[137]7530
  649. 7525 [143]
  650. 7530 [153]"CREDIT FOR QUALIFIED RELATIONS"
  651. 7532 [133]"HOW MANY RELATIVES ARE YOU CLAIMING FOR";H3:SC[178]H3[172]25
  652. 7535 SD[178]SC[170]SB[170]SA:[153]"LOADON SCHED 11, LINE 1 IS ";SA:[153]"LINE 2 IS ";SB
  653. 7536 [153]"LINE 582/3 IS ";H3;:[153]"/";:[153]SC:[153]"LINE 4 IS ";SD
  654. 7537 [153]"LINE 5 IS ";J:[153]"LINE 6 IS ";N7:[153]"LINE 7 IS ";Y3:SE[178]J[170]N7[170]Y3
  655. 7538 [153]"LINE 8 IS ";SE:SF[178](SE[171]15000):[139] SF[179]0[167]SF[178]0:[153]"LINE 10 IS ";SF
  656. 7539 SG[178]SF[173]20:SG[178][181](SG[172]100[170].5)[173]100:[153]"LINE 11 IS ";SG
  657. 7540 SH[178](SD[171]SG):[139]SH[179]0[167]SH[178]0:[153]"LINE 12 = ";SH
  658. 7541 [153]"YOUR FEDERAL SALES TAX CREDIT (LINE 451 ON THE MAIN FORM) IS ";SH
  659. 7560 [141]8316:[137]5810
  660. 7565 [128]
  661. 7570 [139]F1[179]1[167][153]"LINE 464 IS ";[171]1[172]F14100
  662. 7575 [128]
  663. 7580 ![150](1,1,1,0,32,10,10):![134](21,3,32,3)
  664. 7581 W$[178]"   PRESS EITHER 'Y' OR 'N'   "
  665. 7583 ![159],W$:[142]
  666. 7585 ![150](0,1,1,0,32,10,10):![134](6,3,32,5)
  667. 7587 W$[178]"IF YOU HAVE SUCH INCOME TO DECLARE, PRESS THE LETTER Y - IF NOT PRESS N"
  668. 7588 ![159],W$:[142]
  669. 7589 [142]
  670. 7600 [133]"LOADMOVING EXPENSES (FROM FORM T1-M)";M7
  671. 7603 [141]3011
  672. 7610 [153]"LOADALIMONY OR SEPARATION ALLOWANCE PAID"
  673. 7611 [133]M8
  674. 7612 [141]3011
  675. 7620 [133]"LOADCARRYING CHARGES (FROM SCHED 4)";M9
  676. 7621 [141]3011:[142]
  677. 7700 [139]L8[178]44[167][153]"LOADTHAT CHILD FIT IN FIRST GROUP REQUESTED.":L8[178]0
  678. 7701 [139]L8[178]33[167][153]"LOADTHAT CHILD FIT IN SECOND GROUP REQUESTED.":L8[178]0
  679. 7703 N4[178]0:N5[178]0:N6[178]0:E1[178]0:E2[178]0:E3[178]0:E4[178]0:E5[178]0:E6[178]0:E7[178]0:E8[178]0:E9[178]0
  680. 7705 [141]8316
  681. 7706 [153]"    REDO DEPENDENT CHILDREN SECTION"
  682. 7707 [141]8316
  683. 7708 [137]5520
  684. 7800 [139]M1[178][179]419.4[167]G3[178]M1
  685. 7802 [139]M1[177]419.4[167]B3[178]M1[171]419.4:G3[178]419.4
  686. 7810 [137]5296
  687. 7820 [139]M2[179][178]604.76[167]Q9[178]M2
  688. 7821 [139]M2[177]604.76[167]B4[178]M2[171]604.76:Q9[178]604.76
  689. 7830 [137]5377
  690. 8000 ![150](0,0,1,0,32,10,10):![134](13,4,18,11)
  691. 8005 W$[178]"IF YOU HELD 'X' DIFFERENT JOBS IN 1986, THEN YOU"
  692. 8006 W$[178]W$[170]" WILL HAVE 'X' T4 SLIPS. ENTER THE TOTAL OF BOX C ON ALL T4 SLIPS."
  693. 8010 ![159],W$:[142]
  694. 8015 ![150](0,0,1,0,32,10,10):![134](11,4,18,11)
  695. 8017 W$[178]"THIS INCOME MUST BE JOB RELATED, SUCH AS TIPS OR TRAINING ALLOWANCES"
  696. 8018 ![159],W$:[142]
  697. 8025 ![150](1,1,10,102,32,75,75):![134](2,4,33,7)
  698. 8027 W$[178]"TO TRANSFER WHATEVER YOU TYPE INTO THE COMPUTER, YOU MUST PRESS"
  699. 8028 W$[178]W$[170]" THE 'RETURN' KEY AFTER EACH ANSWER."
  700. 8029 ![159],W$:[141]3011
  701. 8031 ![150](0,1,10,102,32,70,70):![134](7,20,20,7)
  702. 8033 W$[178]"IF YOUR ANSWER IS 0 (ZERO), THEN YOU MAY JUST PRESS THE 'RETURN' KEY."
  703. 8034 ![159],W$:[141]3012
  704. 8035 ![150](0,1,10,102,32,70,70)![134](16,3,35,6)
  705. 8036 W$[178]"DO NOT USE THE '$' SIGN, NOR ',' (COMMAS) IN YOUR ANSWERS SINCE "
  706. 8037 W$[178]W$[170]"             SYSTAX EH'DFOR              "
  707. 8038 W$[178]W$[170]"WILL NOT ACCEPT THEM AS INPUTS"
  708. 8039 ![159],W$:[141]8316:[142]
  709. 8040 ![150](0,0,1,0,32,10,10):![134](10,16,22,9)
  710. 8042 W$[178]"IF YOU RECEIVED ANY INCOME IN THE FORM OF OLD AGE SECURITY PAYMENTS"
  711. 8043 W$[178]W$[170]" THEN ENTER THAT AMOUNT HERE, OTHERWISE PRESS RETURN"
  712. 8045 ![159],W$:[142]
  713. 8050 ![150](0,0,1,0,32,10,10):![134](7,7,22,10)
  714. 8052 W$[178]"IF YOU RECEIVED ANY INCOME IN THE FORM OF CANADA PENSION PLAN "
  715. 8053 W$[178]W$[170]"OR Q.P.P PAYMENTS THEN ENTER THAT AMOUNT HERE, OTHERWISE PRESS "
  716. 8054 W$[178]W$[170]"'RETURN'"
  717. 8055 ![159],W$:[142]
  718. 8060 ![150](0,0,1,0,32,10,10):![134](4,22,13,15)
  719. 8062 W$[178]"IF YOU RECEIVED ANY INCOME FROM OTHER PENSION SOURCES "
  720. 8063 W$[178]W$[170]"THEN ENTER THAT AMOUNT HERE, OTHERWISE PRESS "
  721. 8064 W$[178]W$[170]"'RETURN'"
  722. 8065 ![159],W$:[142]
  723. 8070 ![150](0,1,1,0,32,10,10):![134](4,12,23,10)
  724. 8072 W$[178]"THE PERSON WHO IS CLAIMING THE DEDUCTION FOR THE CHILD IS THE "
  725. 8073 W$[178]W$[170]"ONE WHO MUST INCLUDE THE FAMILY ALLOWANCE PAYMENTS AS INCOME "
  726. 8075 ![159],W$:[142]
  727. 8080 ![150](0,0,1,0,32,10,10):![134](12,4,23,9)
  728. 8082 W$[178]"REPORT ANY AMOUNT WHICH YOU HAVE RECEIVED DURING 1986 IN THE "
  729. 8083 W$[178]W$[170]"FORM OF UNEMPLOYMENT INSURANCE PAYMENTS "
  730. 8085 ![159],W$:[142]
  731. 8090 ![150](0,1,1,0,32,10,10):![134](15,6,33,8)
  732. 8092 W$[178]"YOU WILL HAVE TO COMPLETE SCHEDULE 4 IN ORDER TO CALCULATE YOUR "
  733. 8093 W$[178]W$[170]"DIVIDEND INTEREST. (SCHED 4 IS INCLUDED WITH YOUR TAX FORM).
  734. 8095 !OPEN,W$:RETURN
  735. 8100 !DEF(0,1,1,0,32,10,10):!DIM(15,6,33,4)
  736. 8102 W$="THIS FIGURE WILL ALSO COME FROM SCHEDULE 4 "
  737. 8105 !OPEN,W$:RETURN
  738. 8110 !DEF(0,1,1,0,32,10,10):!DIM(12,3,33,9)
  739. 8112 W$="ANY OTHER INCOME THAT YOU HAVENT REPORTED SO FAR MUST BE REPORTED HERE"
  740. 8113 W$=W$+" FIRST REPORT THE AMOUNT AND THEN THE SOURCE OR REASON FOR THIS "
  741. 8114 W$=W$+"INCOME"
  742. 8115 !OPEN,W$:RETURN
  743. 8120 !DEF(0,1,1,0,32,10,10):!DIM(12,3,35,7)
  744. 8122 W$="WELL, THAT WAS THE HARD PART. NOW ALL WE HAVE TO DO IS TO SEE HOW MUCH"
  745. 8123 W$=W$+" WE CAN REDUCE THAT INCOME BY, SO THAT WE PAY AS LITTLE TAX AS "
  746. 8124 W$=W$+"POSSIBLE."
  747. 8125 !OPEN,W$:RETURN
  748. 8200 !DEF(0,1,1,0,32,10,10):!DIM(15,3,35,9)
  749. 8202 W$="THIS IS THE TOTAL YOU PAID IN THE YEAR IN CONTRIBUTIONS TO THE C.P.P. "
  750. 8204 W$=W$+" THE TOTAL CANNOT EXCEED $419.40.  TOTAL BOX (D) ON ALL T4 SLIPS"
  751. 8205 !OPEN,W$:RETURN
  752. 8210 !DEF(0,1,1,0,32,10,10):!DIM(15,3,35,9)
  753. 8212 W$="THIS IS THE TOTAL YOU PAID IN THE YEAR IN CONTRIBUTIONS TO THE U.I.C. "
  754. 8214 W$=W$+" THE TOTAL CANNOT EXCEED $604.76.  TOTAL BOX (E) ON ALL T4 SLIPS"
  755. 8215 !OPEN,W$:RETURN
  756. 8230 !DEF(0,0,1,0,32,10,10):!DIM(15,3,35,5)
  757. 8232 W$="THIS IS THE TOTAL YOU PAID INTO YOUR COMPANY PENSION PLAN. "
  758. 8235 !OPEN,W$
  759. 8236 !DEF(0,1,7,0,32,10,10):!DIM(8,26,12,6)
  760. 8237 W$="TOTAL OF BOX(F) ON ALL T4 SLIPS"
  761. 8238 !OPEN,W$:RETURN
  762. 8240 !DEF(0,0,1,0,32,10,10):!DIM(15,3,35,5)
  763. 8242 W$="IF YOU CONTRIBUTED TO AN R.R.S.P PLAN FOR 1986 ENTER THAT "
  764. 8243 W$=W$+"AMOUNT HERE."
  765. 8245 !OPEN,W$:GOSUB3011:RETURN
  766. 8250 !DEF(0,1,1,0,32,10,10):!DIM(15,3,35,5)
  767. 8252 W$="IN ORDER TO CLAIM CHILD CARE EXPENSES, YOU MUST FILL OUT "
  768. 8253 W$=W$+"AND ATTACH SCHEDULE 5 TO YOUR RETURN"
  769. 8255 !OPEN,W$:GOSUB3011:RETURN
  770. 8260 !DEF(1,1,1,0,32,10,10):!DIM(15,35,4,9)
  771. 8262 W$="P L E A S E "
  772. 8265 !OPEN,W$
  773. 8266 !DEF(0,1,1,0,32,10,10):!DIM(15,3,30,9)
  774. 8267 W$="ENTER THE NUMBER OF DEPENDENTS YOU HAVE WHO MEET 'BOTH' THE AGE AND "
  775. 8268 W$=W$+"INCOME LIMITATIONS AS INDICATED ABOVE"
  776. 8269 !OPEN,W$:GOSUB3011:RETURN
  777. 8270 !DEF(0,1,1,0,32,10,10):!DIM(15,3,30,9)
  778. 8272 W$="THAT WOULD BE DEPENDENT CHILDREN WHOSE INCOMES EXCEEDED THE LIMITS "
  779. 8274 W$=W$+"FOR THEIR AGES AS INDICATED PREVIOUSLY"
  780. 8276 !OPEN,W$:GOSUB3011:RETURN
  781. 8280 !DEF(0,1,7,0,32,10,10):!DIM(8,6,32,9)
  782. 8282 W$="FOR EXAMPLE, IF YOU RECEIVED MOREUIC, CPP OR OAS INCOME THAN YOU "
  783. 8283 W$=W$+"SHOULD HAVE, AND HAD TO REPAY IT, THE AMOUNT YOU   REPAID[146] WOULD"
  784. 8284 W$=W$+" BE ENTERED HERE."
  785. 8285 !OPEN,W$:RETURN
  786. 8300 !DEF(0,1,1,0,32,10,10):!DIM(10,3,30,10)
  787. 8302 W$="PLEASE FILL IN THE APPROPRIATE SECTIONS OF YOUR TAX FORM WITH THE "
  788. 8304 W$=W$+"PROPER NUMBERS AS I GIVE THEM TO YOU FOR THIS SECTION. (MIDDLE OF"
  789. 8306 W$=W$+" PAGE 2 AND BOTTOM OF PAGE 3)."
  790. 8308 !OPEN,W$:RETURN
  791. 8316 PRINT"        HIT SPACE BAR TO CONTINUE       "
  792. 8317 POKE198,0:WAIT198,1
  793. 8318 RETURN
  794. 8480 !DEF(0,1,1,0,32,15,15):!DIM(10,8,24,11)
  795. 8482 W$="TO BE ELIGIBLE FOR THE CHILD TAX CREDIT, YOU MUST HAVE RECEIVED A "
  796. 8484 W$=W$+"TFA1 SLIP IN YOUR NAME[146])"
  797. 8486 PRINT"[147]":!OPEN,W$
  798. 8488 INPUT"IS THAT CORRECT (Y[146] OR N[146])";A$
  799. 8489 IFA$="N"THENGOTO5775
  800. 8500 PRINT"[147]SCHEDULE 10 - CHILD TAX CREDIT"
  801. 8505 GOSUB8316:GOSUB12
  802. 8506 !DEF(0,1,1,0,32,15,15):!DIM(10,8,24,11)
  803. 8507 W$="MY SPOUSE'S NET INCOME FOR 1986 IS "
  804. 8508 PRINT"[147]":!OPEN,W$:INPUT"";P7
  805. 8509 W$="OTHER SUPPORTING PERSON'S (IF NOT SPOUSE) NET INCOME FOR 1986 IS "
  806. 8510 PRINT"[147]":!OPEN,W$:INPUT"";P8
  807. 8511 W$="INCOME FOR MYSELF, MY SPOUSE AND OTHER SUPPORTING PERSON FROM "
  808. 8513 W$=W$+"SOCIAL ASSISTANCE, G.I.S., SPOUSE'S ALLOWANCE AND WORKER'S COMP. "
  809. 8515 W$=W$+"RECEIVED IN 1986 (TOTAL) IS "
  810. 8517 PRINT"[147]":!OPEN,W$:INPUT"";P8
  811. 8518 W$="CHILD TAX CREDIT PREPAYMENT (FROM BOX(C) ON ATC1 SLIP"
  812. 8519 PRINT"[147]":!OPEN,W$:INPUT"";PE
  813. 8522 PRINT"[147]FILL IN YOUR SCHEDULE 10 AS FOLLOWS:"
  814. 8524 PRINT"LINE 545 IS ";P5
  815. 8525 P6=P5*454
  816. 8526 PRINT"BLANK 1 IS ";P6
  817. 8528 PRINT"BLANK 2 IS ";J
  818. 8530 PRINT"LINE 547 (BLANK 3) IS ";P7
  819. 8532 PRINT"LINE 548 (BLANK 4) IS ";P8
  820. 8534 PRINT"LINE 549 (BLANK 5) IS ";P9
  821. 8535 PA=P9+P8+P7+J
  822. 8536 PRINT"BLANK 6 IS ";PA
  823. 8538 PB=PA-23500:IFPB<0THENPB=0
  824. 8539 PRINT"BLANK 8 IS ";PB
  825. 8541 PC=PB/20:PC=INT(PC*100+.5)/100
  826. 8542 PRINT"BLANK 9 IS ";PC
  827. 8543 PD=P6-PC:IFPD<0THENPD=0
  828. 8544 PRINT"BLANK 10 IS ";PD
  829. 8546 PRINT"LINE 552 (BLANK 11) IS ";PE
  830. 8547 B6=PD-PE:B6=INT(B6*100+.5)/100
  831. 8548 PRINT"BLANK 12 IS ";B6
  832. 8549 IF B6>0THENPRINT"ON LINE 450 ON PAGE 4 ENTER ";B6:GOSUB8316:GOTO5775
  833. 8550 IF B6<0THENF6=B6*-1:PRINT"ON LINE 434 ON PAGE 4 ENTER ";F6:T8=T8+F6:B6=0
  834. 8555 GOSUB8316
  835. 8556 GOTO5775
  836. 8613 IFL8>0THENGOTO5520
  837. 8700 IFM1=<419.4THENG3=M1:GOTO5320
  838. 8710 IFM1>419.4THENPRINT"[147]MAXIMUM IS $419.40 IF YOU PAID MORE THAN THAT ENTER "
  839. 8712 PRINT"419.40 HERE AND DEDUCT THE EXCESS ON    LINE 453 (PAGE 4)"
  840. 8714 PRINT"            WE'LL REDO THIS ITEM[146].":GOSUB8316:GOTO5287
  841. 8720 IFM2=<604.76THENQ9=M2:GOTO5379
  842. 8725 IFM2>604.76THENPRINT"[147]MAXIMUM IS $604.76 IF YOU PAID MORE THAN THAT ENTER"
  843. 8727 PRINT"604.76 HERE AND DEDUCT THE EXCESS ON    LINE 454 (PAGE 4)"
  844. 8729 PRINT"            WE'LL REDO THIS ITEM[146].":GOSUB8316:GOTO5320
  845. 8800 PRINT"[147]    1[146]  WILL RESTART TAX EH!D INCLUDING[146]         THE CREDITS"
  846. 8805 PRINT"    2[146]  WILL RESTART TAX EH!D EXCLUDING[146]         THE CREDITS"
  847. 8815 PRINT"    3[146]  WILL RUN THROUGH THE LINE NUMBERS       AND VALUES AGAIN"
  848. 8820 PRINT"    4[146]  WILL RUN CHILD TAX CREDIT ONLY."
  849. 8840 INPUT"SELECT 1 2 3 OR 4";A$
  850. 8842 IF A$="1"THENRUN20
  851. 8844 IF A$="2"THENRUN5000
  852. 8846 IF A$="3"THENGOTO5835
  853. 8848 IF A$="4"THENGOTO8900
  854. 8900 PRINT"[147]SCHEDULE 10 - CHILD TAX CREDIT"
  855. 8901 GOSUB8316:GOSUB12
  856. 8902 !DEF(0,1,1,0,32,15,15):!DIM(10,8,24,11)
  857. 8903 INPUT"MY NET INCOME (LINE 224) = ";J
  858. 8904 IFJ<0THENJ=0
  859. 8907 W$="MY SPOUSE'S NET INCOME FOR 1986 IS "
  860. 8908 PRINT"[147]":!OPEN,W$:INPUT"";P7
  861. 8909 W$="OTHER SUPPORTING PERSON'S (IF NOT SPOUSE) NET INCOME FOR 1986 IS "
  862. 8910 PRINT"[147]":!OPEN,W$:INPUT"";P8
  863. 8911 W$="INCOME FOR MYSELF, MY SPOUSE AND OTHER SUPPORTING PERSON FROM "
  864. 8913 W$=W$+"SOCIAL ASSISTANCE, G.I.S., SPOUSE'S ALLOWANCE AND WORKER'S COMP. "
  865. 8915 W$=W$+"RECEIVED IN 1986 (TOTAL) IS "
  866. 8917 PRINT"[147]":!OPEN,W$:INPUT"";P8
  867. 8918 W$="CHILD TAX CREDIT PREPAYMENT (FROM BOX(C) ON ATC1 SLIP"
  868. 8919 PRINT"[147]":!OPEN,W$:INPUT"";PE
  869. 8922 PRINT"[147]FILL IN YOUR SCHEDULE 10 AS FOLLOWS:"
  870. 8924 PRINT"LINE 545 IS ";P5
  871. 8925 P6=P5*454
  872. 8926 PRINT"BLANK 1 IS ";P6
  873. 8928 PRINT"BLANK 2 IS ";J
  874. 8930 PRINT"LINE 547 (BLANK 3) IS ";P7
  875. 8932 PRINT"LINE 548 (BLANK 4) IS ";P8
  876. 8934 PRINT"LINE 549 (BLANK 5) IS ";P9
  877. 8935 PA=P9+P8+P7+J
  878. 8936 PRINT"BLANK 6 IS ";PA
  879. 8938 PB=PA-23500:IFPB<0THENPB=0
  880. 8939 PRINT"BLANK 8 IS ";PB
  881. 8941 PC=PB/20:PC=INT(PC*100+.5)/100
  882. 8942 PRINT"BLANK 9 IS ";PC
  883. 8943 PD=P6-PC:IFPD<0THENPD=0
  884. 8944 PRINT"BLANK 10 IS ";PD
  885. 8946 PRINT"LINE 552 (BLANK 11) IS ";PE
  886. 8947 B6=PD-PE
  887. 8948 PRINT"BLANK 12 IS ";B6
  888. 8949 IF B6>0THENPRINT"ON LINE 450 ON PAGE 4 ENTER ";B6
  889. 8950 IF B6<0THENPRINT"ON LINE 434 ON PAGE 4 ENTER ";B6*-1
  890. 8955 GOSUB8316:GOTO8800
  891. 8975 PRINT"[147]SORRY! YOU'RE INCOME IS TOO HIGH FOR THETAX TABLES. YOU'LL ";
  892. 8977 PRINT"HAVE TO FILL OUT A   SCHEDULE 1 "
  893. 8979 PRINT"I HOPE TO HAVE A SCHED 1 INCLUDED IN    NEXT YEAR'S TAX EH!D"
  894. 8980 GOSUB8316:GOTO8800
  895.